home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Grafik & Text & Film / Quark XTensions / Freeware Xtensions / XPress Scripts 1.0 / Set Guides / Set Guides next >
Text File  |  1994-08-10  |  2KB  |  64 lines
  1. tell application "QuarkXPress 3.3"
  2.     activate
  3.     if document 1 exists then
  4.         tell current page of document 1
  5.             
  6.             copy (display dialog "Set guides:" default answer "" buttons {"Cancel", "Horizontal", "Vertical"} with icon 2000) to x
  7.             do updates
  8.             try
  9.                 if button returned of x is "Horizontal" then
  10.                     copy text returned of x to y
  11.                     copy every character of y as list to y
  12.                     
  13.                     repeat with i from 1 to count of items in y
  14.                         if item i of y = "," then
  15.                             set item i of y to " "
  16.                         end if
  17.                     end repeat
  18.                     copy y as text to y
  19.                     if y = "" then
  20.                         beep
  21.                         display dialog "No guide drawn. (No value entered)" buttons "Okay" default button 1 with icon 1
  22.                         do updates
  23.                     else
  24.                         repeat with i from 1 to count of words in y
  25.                             copy word i of y to guidePosition
  26.                             make horizontal guide at beginning with properties {position:guidePosition}
  27.                         end repeat
  28.                     end if
  29.                     
  30.                 else if button returned of x is "Vertical" then
  31.                     copy text returned of x to y
  32.                     copy every character of y as list to y
  33.                     
  34.                     repeat with i from 1 to count of items in y
  35.                         if item i of y = "," then
  36.                             set item i of y to " "
  37.                         end if
  38.                     end repeat
  39.                     
  40.                     copy y as text to y
  41.                     if y = "" then
  42.                         beep
  43.                         display dialog "No guide drawn." & return & "(No value entered)" buttons " Okay " default button 1 with icon 1
  44.                         do updates
  45.                     else
  46.                         repeat with i from 1 to count of words in y
  47.                             copy word i of y to guidePosition
  48.                             make vertical guide at beginning with properties {position:guidePosition}
  49.                         end repeat
  50.                     end if
  51.                 end if
  52.             on error errMsg
  53.                 beep
  54.                 display dialog "Invalid entry. ‘" & y & "’ cannot be used." buttons {" Okay "} default button 1 with icon 2
  55.                 do updates
  56.             end try
  57.         end tell
  58.     else
  59.         beep
  60.         display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
  61.         do updates
  62.     end if
  63. end tell
  64.